O8118(PLUNGE MILL MACRO)
(ABSOLUTE MACRO)
(XY POSITION WILL BE)
(THE START OF THE SLOT)
(WORKS) 
 
(FORMAT G65/G66 XZEQRFS)
(X = #24 - END X POSITION)
(Z = #26 - START Z POSITION)
(E = #8 - END Z POSITION)
(Q = #17 - STEPOVER IN X) 
(R = #18 - R PLANE)
(F = #9 - PLUNGE FEED RATE) 
(S = #19 - EXIT FEED RATE) 
 
(*********************************)
(STORE XY POSITION)
#103=#5001 
#105=#5002
(CALCULATE Q VALUE)
#100=ABS[#103]-ABS[#24]
#100=ABS[#100]
IF[[#103*#24]GE0]GOTO1
#100=ABS[#103]+ABS[#24]
N1#101=ROUND[#100/#17] 
#102=#100/#101 
(GOTO CENTER OF HOLE)
G0G90X#103Y#105
Z#18
Z[#26+.1]
#106=#5001
(EXECUTE MACRO)
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
G0X#106
G1Z#8F#9
Z[#26+.1]F#19
IF[#103GT#24]THEN#106=#106-#102
IF[#103LT#24]THEN#106=#106+#102 
END1
N10G90G0Z#18
X#103Y#105 
M99
